www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_chk_copy_custom_label.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file=../../inc/ND_class_function.asp-->


<%
AJAXshowLoader()


%>

<%


if find_dataw("qitashezhi123","0",7)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>

<%

fnameb=left(request("fname"),len(request("fname"))-1)



set filea=new Cls_FSO



if trim(request("fnme"))="" then
%>






<script language=javascript>
alert("复制失败,必须填写 目标标签文件名");



history.go(-1);

</script>









<%



else
if request("fnm")="" then 
fffs=""
else
fffs="/"

end if

if filea.ReportFileStatus(server.mappath("../../Label/custom_Label/"&request("fnm")&fffs&request("fnme")))=1 then





%>


<script language=javascript>
alert("复制失败,因为目标标签文件 与已有标签文件重名");


history.go(-1);

</script>



<%



else



ssss="/"
if trim(request("fnm"))<>"" then
if right(trim(request("fnm")),1)="/" then ssss=""


else

ssss=""

end if


'以下用来 支持 无限级 创建目录
call createfile("../../Label/custom_Label/"&request("fnm")&ssss&"test.asp","1111",true)



call deletefile("../../Label/custom_Label/"&request("fnm")&ssss&"test.asp")


dddd=loadfile("../../Label/custom_Label/"&fnameb)
call get_info_array_from_label_file_content(dddd)





ext1=chr(60)&chr(37)&"'$start_ext_newDsoft 以下系统生成,勿删!"&vbcrlf&"'$newDsoft_label_type$:"&nd1_label_type&"$end_newDsoft_label_type$"&vbcrlf

ext1=ext1&"'$newDsoft_label_name$:"&request("fnmeeee")&"$end_newDsoft_label_name$"&vbcrlf



ext1=ext1&"'$newDsoft_label_sql$:"&nd1_label_sql&"$end_newDsoft_label_sql$"&vbcrlf

ext1=ext1&"'$newDsoft_label_params$:"&nd1_label_params&"$end_newDsoft_label_params$"&vbcrlf


ext1=ext1&"'$newDsoft_label_fenye_num$:"&nd1_label_fenye_num&"$end_newDsoft_label_fenye_num$"&vbcrlf

ext1=ext1&"'$newDsoft_label_beizhu$:"&nd1_label_beizhu&"$end_newDsoft_label_beizhu$"&vbcrlf

ext1=ext1&"'$newDsoft_is_sys_label$:"&nd1_is_sys_label&"$end_newDsoft_is_sys_label$"&vbcrlf


ext1=ext1&"'$newDsoft_other_params$:"&nd1_other_params&"$end_newDsoft_other_params$"&vbcrlf

ext1=ext1&"'$end_ext_newDsoft"&chr(37)&chr(62)&vbcrlf&vbcrlf&vbcrlf&vbcrlf&nd1_label_code

















set a=new Cls_FSO 

if savefile(ext1,"../../Label/custom_Label/"&request("fnm")&ssss&request("fnme"))=true then



'sssp=request("fnm")
'sssspq=split(sssp,"/")

'ooosss=""

'for iii=0 to ubound(sssspq)-2

'ooosss=ooosss&sssspq(iii)&"/"
'next



'=ooosss2






%>
<script language=javascript>
alert("复制成功");
<%
ssddffga=""
if request("fnm")<>"" then ssddffga="/"
%>

self.location="D_admin_custom_label.asp?fpath=<%=request("fnm")%><%=ssddffga%>";

</script>





<%





else

%>


<script language=javascript>
alert("复制失败");



self.location="D_admin_custom_label.asp?fpath=<%=request("fnm")%>";

</script>








<%





end if

end if
end if





AJAXcloseLoader()
%>